From! TURTLE:IWIENER 20-OCT-1985 10:41 

To: HETOO::BRADLEYrMETOO;;YARBROUGH 

SubJ; Here it is. 


SIZE^TIME^EEFORT Curve Generation Program 


The brunt of this code was written by TOPCAT:JHOFFMAN circa 1982, 
I have added the ability to generate VT125 plots of the feasibility and 
5 effort plotSf along with adding more precise arithmetic calculations. 
The graphics display is generated by using some of Rich Reichert's GRAS 
routines: 

CREICHERT,GRAPHICS,OBJ]GRAPHICS/LIB. 


To Compile and run any changes to this program follow these steps: 

% for mgt 

$ 1ink/nosysshr mgt#[reichert.graphics,obj]graphics/1ib 


To run this program the following steps should be followed: 

1, $ ASSIGN F0R,LST FORSPRINT •• this will permit you to keep 
a record of both your interactive session and your generatet 
output, 

S RUN m9t 

$ GRAF filename •• to create a file 'fi1endme,GHD' which 
contains your yTl25 graphics plot. This plot is in a format 
that can be sent directly to an LA54 graphics printer, 

$ PRINT F0R,LST to print the numeric data generated by 

this program on a line printer. The plot generated by Hoffm< 
is still contained in this file. 


2 , 

3 , 


4. 


Note that Hoffman has scaled down the Development Time to < 2 years# 
and the Program Siie to < 43K lines, I have not changed these restrictions, 
A plot that violates these requirements will run off the screen. 


Jeff Wiener 

VAX-Il Common Run»Time*Library 

ZK02-3K06 

July 5# 1965 


c* define variables 


REAL*4 X^TICK,Y^TICK 

CHARACTERal2 LABEL 

CHARACTER*27 LABEL2 

REAL EEX(6#2n)#T0U(2in#E£D(6) 

INTEGER*4 sub 

REAL P#K#Td#S#Ck#D#b 

REAL C#Ss#Ef#Ed 

REAL X#Z 

CHARACTER*! CHAR#R(6) 
CHARACTER*2 AA 
CHARACTER*5 BB 
DIMENSION LINE(120) 

DIMENSION FEASX(21)#FEASY(2n 
DIMENSION AX(2n 
DIMENSION BX(2n 
DIMENSION CX(21) 

DIMENSION DX(21) 

DIMENSION EX(2n 



DIMENSION EFEETC5) 


TYPE *,• ' 

TYPE ^ 

TYPE ★f ' ****A***^*#****W***^***»**||t******»****#*****«r^***i** ' 

TYPE * -CURVE- *' 

TYPE *,^ * PROGRAM TO GENERATE SIZE-TIME-EEFORT CURVES *' 

TYPE * FDR SOFTWARE DEVELOPMENT PROJECTS *' 

TYPE *t * ** W*<t**WW**^****^*^****^<t^*********#r********A*A**** ' 

TYPE ♦r ' ' 

TYPE * 

C ASK IF OPERATOR WANTS HELP INFORMATION 

3 TYPE *,'00 YOU WANT HELP INFQRMATON ? (Y OR N) x' 

accept 5,char 
5 FORMAT (lAl) 

C IF OPERATOR DOESN'T WANT HELP, SKIP IT 

IF (CHAR ,EQ. 'N' .OR. CHAR ,EQ. 'n') GOTO !« 

IF (CHAR .NE. 'Y' .AND, CHAR ,NE. 'y') GOTO 3 


TYPE *,' ' 

TYPE *,'*****************************★********************5(k*********** 
TYPE *,' 

TYPE ★,' PROGRAM TO CALCULATE AND PLOT 

TYPE *,' FEASIBILITY AND SIZE-TIME-EFFORT CURVES 

TYPE *,' 

TYPE *,' This program will perform the following ooeratfona s 
TYPE *,' - Ask the operator for the Figure of Merit Ck, or calculate 

TYPE *,' it using the following parameters (supplied by the oper- 

TYPE *#' ator) i Organizational Productivity (P) in source state- 

TYPE *,' ments/man year. Total Life^Cycle Effort (K) in man-years, 
TYPE *,' Total Development Time (Td) in years, and Program Size 

TYPE *,' Parameter (a). (For Size < 10000 lines, use ass. For 

TYPE *,' Size > 70000 lines, use a a 1. In between, a is linear,) 

TYPE *,' - Ask the operator for the Productivity Constraint C, 

TYPE (C ranges from 1 [for difficult) to 30 [for easy programs]) 

TYPE *,' - Calculate 21 coordinates of the Feasibi1ity Curve, with 

TYPE Program Size (No, of Source Statements) on the horizontal 

TYPE avis, and Development Time (weeks) on the vertical axis. 

TYPE The Development Time is varied from 2.5 weeks to 102.5 

TYPE weeks, in 5 week increments, 

TYPE *,' - Calculate the Maximum Effort Ef, (continued.,,) 

TYPE *,' ' 

TYPE *,'TYPE CARRIAGE RETURN TO CONTINUE HELP 
ACCEPT 5,CHAR 
TYPE *,' ' 

TYPE *,' - Ask the operator for each of 5 Effort Sizes (Man-Years), 

TYPE *,' and for each one it will calculate 21 coordinates of the 
TYPE *,' Size-Time-Effort Curve for that effort size. Development 
TYPE Time is on the vertical axis, and Program Size is on the 

TYPE horizontal axis. The Development Time is varied from 2,5 

TYPE *,' weeks to 102,5 weeks, in 5 week increments. 

TYPE - Output to the default Print File all of the above 

TYPE *,' inputted and calculated values, in an 60-column format, 
TYPE *,' - Output all six curves to the default Print File, in a 

TYPE *,' 132-column plotted format, with Program Size values 
TYPE *,' ranging from 0 to 40,000 Lines of Source Code, and Oevel- 
TYPE ' opment Time ranging from 0 to 105 weeks. 

TYPE *,' 

TYPE *,' The operator should then type or print the Print File for 


TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 


display* The region above the Feasibility Cgrve is the 
Region of Feasibility* Below it is the Region of Infeasi^ 

♦#' bility. It is helpful to manually connect the plotted 

points of the curves# using different»colored pens# before 
snalyiing the curves, 

♦#' (end of HELP) 

★ A* ***«*#« ****e*«r**4*A**i(^*A**W;^**«r1lrlkr*««*«**A*«******A**«****ir*4r 
*# ' 


C ASK IF OPERATOR WANTS TO CALCULATE Ck# OR SPECIFY IT 
10 TYPE ^#^00 YOU WANT THIS PROGRAN TO CALCULATE Ck ? (Y OR N) 5 ' 

ACCEPT 20#CHAR 
20 FORMAT (lAt) 

C IF OPERATOR WANTS TO SPECIFY Ck# SKIP CALCULATION 

IF (CHAR .EQ. 'N' ,OR* CHAR .EQ. 'n') GOTO 90 
IF (CHAR ,NE. 'Y' .AND, CHAR ,NE, 'y') GOTO 10 
C OPERATOR WANTS TO CALCULATE Ck, SO ASK FOR PARAMETERS 

TYPE *#'PLEASE ENTER ORG. PRODUCTIVITY P (SOURCE LINES/MAN-YEAR) 
READ *,P 
PRINT 30#P 

30 FORMAT ('0ORG. PRODUCTIVITY P (SOURCE LINES/MAN»YEAR) = ',F7,0) 

TYPE *#'PLEASE ENTER TOTaL EFFORT K (MaN-YEaRS) ;' 

read ♦#K 

PRINT 40#K 

40 FORMAT ('0TOTAL EFFORT K (MAN-YEARS) * '#F5,2) 

TYPE *#'PLEASE ENTER TOTAL DEVELOPMENT TIME Td (YEARS) ?' 

READ r#Td 
PRINT S0#Td 

50 FORMAT ('0TOTAL DEVELOPMENT TIME Td (YEARS) = '#F5,2) 

TYPE ♦#'PLEASE ENTER PROGRAM SIZE PARAMETER a 
READ *#a 
PRINT 60#a 

60 FORMAT (' 0 PROGRAH SIZE PARAMETER a c '#F3,n 

C PERFORM CALCULATION OF Ck 
OaK/(Td*Td) 
bsl, 0 -(exp(-a/ 2 , 0 )) 

Ckab*P*(D**0,67) 

C TYPE AND PRINT CALCULATED VALUE OF Ck 
PRINT 70 

70 FORMAT (' ♦**★*★***♦#★**♦*■*★*♦*AA**^**** 

Haa#«aaaaaaaaaaaaaa*aaaaa*aaaaaaa*a*aaaaaaaaaa') 

TYPE 80#Ck 

80 format (' FIGURE OF MERIT Ck = '#F7.0) 

PRINT 80#CK 

C USE CALCULATED VALUE OF Ck# SKIP OPERATOR INPUT OF Ck 
GO TO 100 


C OPERATOR DOESN'T WANT TO CALCULATE Ck# SO ASK FOR IT 
90 TYPE A,'PLEASE ENTER FIGURE OF MERIT Ck s' 

READ A,Ck 

C ASK FOR PRODUCTIVITY CONSTRAINT C 

100 TYPE A,'PLEASE ENTER PRODUCTIVITY CONSTRAINT C l' 
READ A,C 

C print heading for FEASIBILITY CURVE COORDINATES 
PRINT 70 
PRINT n0#Ck#C 





110 FORMAT FEASIBILITY CURVE FOR Ck 5%F7t0f' 
C ^ %F4.1,' -n 
Td»2,5/52,0 
PRINT 120 

120 FORMAT('0%'TIME (WEEKS) SIZE (NO, OF LINES)') 

C CALCULATE AND PRINT COORDINATES OF FEASIBILITY CURVE 
DO 140 lcl,21 

S85RCk*(C*^0.53)*(Td**2.33) 

FEASXCDcSs 
FEASYCDsTd 
Z*Td*52,0 
PRINT n0,ZfS8 

130 FORMAK' '#F9,l,F16.0) 

TdsTdfCS,0/52.0) 

140 CONTINUE 


(^it ik it It It it ir it 1( It t it * it it it * i( i< it if if t it * it it if * it Ik it * if * it if It -k * it * it it ft it It it i( it it t if ft it * it it it it it it fe t 'if it * ff it ft it it i( t If * 

Cw Calculate Maximum Effort Ef (Han»*Years) 

PRINT 70 

C IF Ck WAS CALCULATED, WE ALREADY HAVE PARAMETER a, SO DON'T ASK FOR IT 
IF (CHAR .EQ, 'Y' .OR, CHAR ,EQ. 'y') GOTO 160 
TYPE A#'PLEASE ENTER PROGRAM SIZE PARAMETER a t' 

READ *,a 
PRINT 150,a 

150 FORMAT (' PROGRAM SIZE PARAMETER a = %F3.1) 

C calculate AND PRINT MAXIMUM EFFORT Ef 
160 Td;sTd-(5,0/52.0) 

b*l,0-(exp(-a/2,0)) 

Ef=(b*(Ss**3,0))/((Ck*A3,0)*(74*^4,0)) 

PRINT 170,Ef 

170 format ('0 HAXIMUM EFFORT Ef (MAN-YEARS) a ',F5,l) 


Qititit it it Hit it itit it irit it it* it a it it iiit it it ititit it it it* it it* it it it it it it it it it * it it it it it it it* it if it it* it it it Hit it •kii it * it it if it it-kit* if it i 

C* Calculate Curve "A" for a Certain Effort Size 

C********************** *******************************************************i 
PRINT 70 

C ASK FOR AN EFFORT SIZE 

TYPE A,'PLEASE ENTER EFFORT SIZE Ed (MAN-YEARS) 

READ ★,Ed 
EFfRT(l)aEd 

C PRINT HEADING FOR COORDINATES OF CURVE 
PRINT l80rEd 

180 FORMAT (' SIZE-TIME-EFFORT CURVE "A" FOR EFFORT Ed s?',F6,2,' MAN 

M^YEARS -') 

PRINT 120 

C CALCULATE AND PRINT COORDINATES OF CURVE 
Tds2,5/52,0 
DO 190 1=1,21 

S8t((l/b)**0.3533333)*Ck*(edA^0.33333333)♦(Td**1.3333333) 

AX(I}sS$ 

ZsTd*52,0 
PRINT 130,Z,5s 
Td»Td+(5.0/52,0) 

190 CONTINUE 





C* Calculate Curve "8” for a Certain Effort Size 

C ***♦ A lir e * A ♦*!<>★*★***♦***♦* A *** Hr* a ★**★♦**★♦***★ ★★ A **★*★* <t ilr 

PRINT 70 

C ASK FOR an effort SIZE 

TYPE *,'PLEASE ENTER EFFORT SIZE Ed (HAN^-YEARS) 

READ *,Ed 
EFFRT(2)«Ed 

C PRINT HEADING FOR COORDINATES OF CURVE 
PRINT 200,Ed 

200 FORMAT (' SIZE-TIHE-EFFORT CURVE *’8** FOR EFFORT Ed =',F6*2,' MAN 
M-YEARS -') 

PRINT 120 

C CALCULATE AND PRINT COORDINATES OF CURVE 
Tds2,5/52.0 
DO 210 1*1,21 

Sa»((1/b)**0.33333333)*Ck*(Ed**0,33333333)*(Td**1.3333333) 

8 X(I)sSs 
ZsTd*52.0 
PRINT 130,Z,Ss 
TdaTdt(5,0/52.0) 

210 CONTINUE 


C*****************************************************************************H 
C* Calculate Curve "C" for a Certain Effort Size 

C****************************************************************************** 

PRINT 70 

C ASK FOR AN EFFORT SIZE 

TYPE *,'PLEASE ENTER EFFORT SIZE Ed (MAN-YEARS) 

READ *,Ed 
EFFRT(3)*Ed 

C print HEADING FOR COORDINATES OF CURVE 
PRINT 220,Ed 

220 format (' SIZE-TIME-EFFORT CURVE "C" FOR EFFORT Ed »',F6.2,' MAN 

M-YEARS -') 

PRINT 120 

C CALCULATE AND PRINT COORDINATES OF CURVE 
Tda2.5/52.0 
DO 230 Isl,2l 

SaeCd/b)**0.33333333)*Ck*(Ed**0.33333333)*(Td**1.3333333) 

CX(I)bSs 
Z eTd*52.0 
PRINT l30,Z,Sa 
TdaTd+(5.0/52.0) 

230 CONTINUE 


C* Calculate Curve ”0" for a Certain Effort Size 

C* * * ****** ************************ ******* ************************************** 
PRINT 70 

C ASK FOR AN EFFORT SIZE 

TYPE *,'PLEASE ENTER EFFORT SIZE Ed (MAN-YEARS) ;' 





READ *,E6 
EFFRTCi|)=Ed 

C PRINT HEADING FOR COORDINATES OF CURVE 
PRINT 2^0,Ed 

240 format (' SIZE-TIHE-EFFORT curve "D" for effort Ed a'fF6.2,' MAN 

M-.YEARS 

PRINT 120 

C CALCULATE AND PRINT COORDINATES OF CURVE 
Td#2,5/52,0 
DO 250 I»lr2l 

S8a(<l/b)AA0,33335335)★Ck*CEd^*0.33533333)*(Td**1.3353333) 

DXCDaSs 

Z=TdA52,0 

PRINT 130.Z.S8 

Td»Td^(5,0/52.0) 

250 CONTINUE 


C* CalcuVat© Curve "E” for a Certain Effort Size 

PRINT 70 

C ASK FOR AN EFFORT SIZE 

TYPE *,'PLEASE ENTER EFFORT SIZE Ed (MAN-YEARS) 

READ *rEd 
EFFRT(5)5Ed 

C PRINT HEADING FOR COORDINATES OF CURVE 
PRINT 260,Ed 

260 FORMAT (' size-time-effort CURVE "E” FOR EFFORT Ed *SF6.2,' MAN 
M-YEARS -') 

PRINT 120 

C CALCULATE AND PRINT COORDINATES OF CURVE 
Tds2.5/52.0 
DO 270 lal,21 

SsaCCl/b)**0,33333333)★Ck*(Ed**0.33333333)★(Td**1.3333333) 

EXCDaSs 

Z=TdA52.0 

PRINT l30,Z,Ss 

TdsTd+(5,0/52,0) 

270 CONTINUE 


C* PRINT HEADINGS FOR SIZE-TIME-EFFORT 

Iz21 

PRINT 280 

280 FORMAT (MM 

PRINT 240 

290 FORMAT ('0 

M SIZE-TIME-EFFOHT CHART') 

PRINT 300,Ck,Cra 
300 FORMAT (' 

M FOR Ck = ',F6,0,', C a ',F3,0,', a = ',F3.n 

PRINT 3t0,EFFRT(l),EFFRT(2),EFFRT(3),EFFRT(a),EFFRT(5) 
310 FORMAT ('0 * s FEASIBILITY CURVE, A s', 

MF6.2 ,' man-years, B 3',F6.2,' MY, C a',F6.2,' MY, 





E a%F6.2,' MVn 



- D s%F6.2# 

' MY, 


PRINT 

320 


320 

FORMAT 

C'E 

1 OEVEL') 


PRINT 

330 


330 

FORMAT 

(" 

TIME") 


PRINT 

340 


340 

FORMAT 

(' 

") 


c blank out the 120 -character line puffer 

350 DO 360 KaW120 

LINE(K)s' ^ 

360 CONTINUE 

C**^A*4r^f^9i^*A:lk*At*A***A^AA***‘**A*AA«r*W*A*A4:*AA4rAAA^A*AAA4r*4r*A******Tl^AA*1^**Aa***1 

C* Plot the Curves 

C*^<>f*^***:****^**‘^**^******lfc!*r****1k*<k***e^****^**i(k****ilf***re*^*^*****<t**^******a*1 

C CONVERT A FEASIBILITY CURVE COORDINATE TO A PRINT LINE COLUMN NUMBER 
Xs(FEASX(I))*l20,/a0000. 

JsIFIX(X) 

IF (J.EQ.O) J«l 

C PUT COORDINATE INTO PRINT LINE BUFFER 
IF (J.LE.120) LINE(J)s^*' 

C CONVERT A CURVE "A»* COORDINATE TO A PRINT LINE COLUMN NUMBER 
X=(AX(I))*I20,/a0000, 

J=IFIX(X) 

IF (J,EQ.0) Jsrl 

C PUT COORDINATE INTO PRINT LINE BUFFER 
IF (J.LE.120) LINE(U)s"A' 

C CONVERT A CURVE "B** COORDINATE TO A PRINT LINE COLUMN NUMBER 
Xs(BX(n)*120./a0000, 

JsIFIX(X) 

IF (J.EQ,0) J*1 

C PUT COORDINATE INTO PRINT LINE BUFFER 
IF (J,LE,120) LINE(J)s'B' 

C CONVERT A CURVE «C" COORDINATE TO A PRINT LINE COLUMN NUMBER 
Xa(CX(I))*120,/40000, 

JsIFIX(X) 

IF (J,EO.0) Jsl 

C PUT coordinate INTO PRINT LINE BUFFER 
IF (J,LE.l20) LINE(J)»'C' 

C CONVERT A CURVE "D" COORDINATE TO A PRINT LINE COLUMN NUMBER 
Xs<OX(I))*l20./40000, 

JsIFIX(X) 

IF (J,EQ,0) Jcl 

C PUT COORDINATE INTO PRINT LINE BUFFER 
IF (J,LE,120) LINE(J)='D' 

C CONVERT A CURVE "E" COORDINATE TO A PRINT LINE COLUMN NUMBER 
X»(EX(I))*120./^I0000, 

JsIFIXCX) 

IF (J,EO,0) J»1 

C PUT COORDINATE INTO PRINT LINE BUFFER 
IF CJ.LE,120) LINE(J)s'E' 

C PRINT A TIME AXIS VALUE AND A GRID LINE 
Zs((FEASY(I))*52,0)^2,50 



PRIM 370,Z 


370 

format (' 

F5,0,' NKS ♦ 

m m m 

m 

+ - 

m 

Mf 

m m m -m 

^ .1 w i. -m 

> W M 


* 


H+ 

• • • • 

* m m m • 

. m m 


m m 


C PRINT 

OUT THE PRINT BUFFER LINE 
PRINT 380,LINE 





380 

FORHAT (' 

+',120A1) 





1 = 1-1 

IF (I,GT,0) 

GOTO 350 





C PRINT 

THE FINAL TIME AXIS VALUE 

AND GRID 

LINE 



PRINT 390 






390 

FORMAT (' 

0, WK5 ♦ - 

« - m 

♦ 

■■ m m 

m 

M + 

• W • • 

M • W ■ 

• + • - 


m m 


M* 

PRINT 400 

^ a. « <. « 

a f • . 


tm m 

+ ') 

C PRINT 

PROGRAM SIZE 

AXIS LABELS 





400 

FORMAT (' 

0 


5K 



M 

15K 

20 K 



25K 


M0K 

35K 

40KM 





PRINT 410 






410 

FORMAT ('0 






M 

PROGRAM SIZE (SOURCE LINES) 

n 




C 

C Generate the data, 

C 

TDO(l) s 0,0 
DO 1400 I * 1,21 
9 * 10 * (I-l) 

DO 1410 J = 1,9 
sub * J+841 

Tdd(sub)aTdd(sub*U+9,6153846E-3 

SsaCk^CC**0,33)*(Tdd(sub)**a,33) 

E£X(l,8ub)=S9 
1410 CONTINUE 

Tdd(UTs) 5 (1^5,0) / S2,0 
SsaCk*(C**0,33)*CTdcl(U + s)*<E 2 . 35 ) 

EEXCl,ll+s)sSs 
1400 CONTINUE 

DO 6886 L*a ,6 
EEX(L# n a 0.0 
00 1900 Ial,21 
s s 10 (1*1) 

DO 1910 Jsl,l0 
sub = J+l+s 

temo a Tdd(sub)**1,3353333 

Ss*((l/b)**0.3355333)*Ck^(EEERT(l.-U^^0t33333333)*temp 


1910 

EEXCL,sub)»Ss 

1900 

CONTINUE 

8888 

CONTINUE 

C 

it 

Q 

X» 

c 

print 'L = ',1 

c 

do lUl 1 = 6,210,10 

c 

a « tdd(I)*52,0 

c 

print ^,1,8,' ^,eeK(1,i) 

c 

print * 

dill 

continue 


C ft met** it * It*** * flit ft*** ft ^ fit* 









r>oor» O' n <n r> o ooo r>or>o orioo 


Initialize the graphics variables and then do the graphics plot* 

X^TICK r 5.0 
Y^TICK = 10,0 
XMAX = 40.0 
XMIN s 0,0 
YMAX B 110.0 
YHIN s 0,0 

Initialize plotting sequence 

make the window a little bigger than the plot area, 
s ,09 * (XHAX-XMIN) 

XXS s XMIN - RN6 

XXt e XMAX > RN6 

RRN6 B .30 * (YMAX-YMIN) 

YYS s YMIN • RRNG 

YYt s YHAX -► RRN 6 

CALL GRA$SET^WINDOW(XXS,XXLfYYSrYYL) 

Draw **x-axis" 

CALL GRA$DRAW^Xj,AXIS(YMIN,XMIN,X^TICKrXHAX) 

CALL GRA$SeT^CENTERING(.5,1.0) 

RNG B .05 *(YMAX • YHIN) 

YRNG s YHIN - RNG 

00 599 XI = XHINrXMAXrXj^TXCK 

Call GRA$CVT^OUT^F^F(XI,%VAL(0),%VAL(0)fXVALC33),LAB^LENfAA) 
LAB^LEN a 2, 

B 8 s AA//'K' 

CALL GRASWRITE^TEXT^AeSj.POSlTION(XI, YRNGf 0 B) 

599 CONTINUE 

LABEL? 3 'PROGRAH SIZE CSOURCE LINES)' 

CALL GRA$WRlTE^TEXT^Ae$j,POSITION( 17,0, YRNG-10,LABEL2( 1:37)) 

Draw "y-axis” 

CALL GRA$DRAW^Y^AXISCXMIN,YHIN,Y^TICK,YMAX) 

CALL GRA$S£T^CENTERING(1.0,,5) 

RRNG s ,025 * (XMAX • XHIN) 

DO 600 Yl B YHIN,YHAX,Y^TICK 

CALL GRASCVT^OUT^F^FCYI,XVAL(0),XVAL(0),%VAL(33),LAB^LEN,LABEL) 
CALL GRAiWRITE^TEXT^ABS.POSITI0N(XMIN-RRNG,YI,LABELCl:LA8^LEN)) 
00 CONTINUE 

LABEL2 c 'WKS' 

CALL GRA$WRITE^TEXT^ABS^POSITIDN(XMIN.RRNG,YMAX+10,LABEL2(Is3)) 

Draw each of the six curves, R(1)«F, the feasible curve, R(2)3A, 
R(3)sB, R(4)»C, R(5)=D, and R(6)aE. 

R(l) 3 'F' 

R(2) s 'A' 

R(3) a 'B' 

R(4) s a' 

R(5) a 'D' 

R( 6 ) a 'E' 

CALL GRA$HOVE^ABS^2D(0,0 , 0,0) 

DO 900 I a 1,211 
TDO(I) a TDOCI) * 52,0 


900 



o r> o o r> o r> 


w 950 

^ t000 


DO 1000 L s 1,6 

DO <^50 I » 1,211 

EEX(L,I) = EEX(L,I) / 1000 

CALL GRA$LINE^ABS^2D(EEX(L,I) ,100(1)) 

CONTINUE 

Call graS^ri tej.textgj.abSg,.P 06 i 11 on(EEX (L, 211), 110.0, RCD) 
CALt GRA$MOVE^ABS^2O(0,0 , 0,0) 

CONTINUE 


Wrap up plot fn« generation 

Call gra$rnove^abs^2d(xwin,ymax) 

LA8EL2 B ' Si re»Tifne«Ef fort Chart' 

Gall graSwri te^textu.abt^poai tion(xffi8x,ymax>15,LABEL2(l|23)) 
LA8EL2 B 'F ia the Feasible Curve' 

Call graSwri t Sj^t ext^abs^posi tion(xfTiex,y ma xt 10,1*6 EL 2(1| 23)) 
CALL GRASEXIT^GRAPHICS^MOOE () 

CALL GRAIFLUSH^BUFFER () 


END 




